home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / pini10 / pini.bas < prev    next >
BASIC Source File  |  1995-01-07  |  1KB  |  35 lines
  1. 'PINI.BAS v1.0
  2.  
  3. Declare Function GetPrivateProfileString% Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String)
  4. Declare Function GetPrivateProfileInt% Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Integer, ByVal lpFileName As String)
  5.  
  6. Declare Function WritePrivateProfileString% Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lplFileName As String)
  7.  
  8. Function ReadPINIInt% (iniFile As String, iniSection As String, iniEntry As String)
  9.  
  10.     ReadPINIInt = GetPrivateProfileInt(iniSection, iniEntry, 0, iniFile)
  11.  
  12. End Function
  13.  
  14. Function ReadPINIString$ (iniFile As String, iniSection As String, iniEntry As String)
  15.  
  16.     Dim RetVal As Integer
  17.     Dim RetStr As String * 80
  18.  
  19.     RetVal = GetPrivateProfileString(iniSection, iniEntry, "", RetStr, 80, iniFile)
  20.  
  21.     If RetVal = 0 Then
  22.         ReadPINIString = ""
  23.     Else
  24.         ReadPINIString = Left(RetStr, RetVal)
  25.     End If
  26.     
  27. End Function
  28.  
  29. Function WritePINIString% (iniFile As String, iniSection As String, iniEntry As String, iniString As String)
  30.  
  31.     WritePINIString = WritePrivateProfileString(iniSection, iniEntry, iniString, iniFile)
  32.  
  33. End Function
  34.  
  35.